home *** CD-ROM | disk | FTP | other *** search
/ Print Library / Print Library.iso / library / menu / 00025.ls < prev    next >
Encoding:
Text File  |  1995-08-11  |  1.9 KB  |  78 lines
  1. on MouseInInfo
  2.   if not rollOver(10) then
  3.     beep()
  4.     dontPassEvent()
  5.   end if
  6. end
  7.  
  8. on InitInfoDialog
  9.   global gTotalInfoPage, gNowInfoPage
  10.   repeat with e = 1 to 50
  11.     if the number of cast ("Info.PAGE-" & e) = -1 then
  12.       exit repeat
  13.     end if
  14.   end repeat
  15.   set gTotalInfoPage to e - 1
  16.   set gNowInfoPage to 1
  17. end
  18.  
  19. on UpdateInfoBox
  20.   global gTotalInfoPage, gNowInfoPage
  21.   set the castNum of sprite 18 to 29
  22.   set the castNum of sprite 19 to 30
  23.   set the castNum of sprite 17 to cast ("Info.PAGE-" & gNowInfoPage)
  24.   if gTotalInfoPage <> 1 then
  25.     if gTotalInfoPage = gNowInfoPage then
  26.       set the locV of sprite 18 to 229
  27.       set the locV of sprite 19 to 1000
  28.     else
  29.       if gNowInfoPage = 1 then
  30.         set the locV of sprite 18 to 1000
  31.         set the locV of sprite 19 to 229
  32.       else
  33.         set the locV of sprite 18 to 229
  34.         set the locV of sprite 19 to 229
  35.       end if
  36.     end if
  37.   end if
  38.   updateStage()
  39. end
  40.  
  41. on ClickPRandNE
  42.   global gTotalInfoPage, gNowInfoPage
  43.   puppetSound("Click")
  44.   if the clickOn = 18 then
  45.     set the castNum of sprite 18 to 31
  46.     updateStage()
  47.     set gNowInfoPage to gNowInfoPage - 1
  48.   else
  49.     set the castNum of sprite 19 to 32
  50.     updateStage()
  51.     set gNowInfoPage to gNowInfoPage + 1
  52.   end if
  53.   repeat while the stillDown
  54.   end repeat
  55.   UpdateInfoBox()
  56.   puppetSound(0)
  57. end
  58.  
  59. on CreateTableObj theFName
  60.   global gTableL, gNowMode
  61.   set theFObj to fileio(mnew, "read", the pathName & theFName)
  62.   if objectp(theFObj) then
  63.     set theContents to theFObj(mreadfile)
  64.     theFObj(mdispose)
  65.     if listp(gTableL) then
  66.       set gTableL to EMPTY
  67.     end if
  68.     set gTableL to list()
  69.     set theNum to the number of lines in theContents
  70.     repeat with e = 1 to theNum
  71.       addAt(gTableL, e, line e of theContents)
  72.     end repeat
  73.     set gNowMode to theFName
  74.   else
  75.     alert("not found file." & RETURN & the pathName & theFName)
  76.   end if
  77. end
  78.